---
title: "Inversion publica 2006-2022"
author: "Ada Cueto - Alexander Sucre"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
    theme:
      version: 4
      base_font:
        google: Sen
      code_font:
        google: JetBrains Mono
      bootswatch: darkly
---

```{r setup, include=FALSE}
pacman::p_load(
  flexdashboard,
  tidyverse,
  sparklyr,
  readxl,
  dplyr,
  ggplot2,
  GGally,
  ggthemes,
  plotly,
  DataExplorer,
  textshape,
  reticulate,
  tictoc,
  parquetize,
  knitr,
  DT
)
```


# Resumen 

```{r}
```

Row
-----------------------------------------------------------------------

### Cantidad de proyectos {.value-box}

```{r}
articles <- 25
valueBox(articles, icon = "fa-pencil")
```

### Total presupuestado {.value-box}

```{r}
articles <- 25
valueBox(articles, icon = "fa-pencil")
```

### Total en ejecucion {.value-box}

```{r}
articles <- 25
valueBox(articles, icon = "fa-pencil")
```

### Total ejecutado {.value-box}

```{r}
articles <- 25
valueBox(articles, icon = "fa-pencil")
```

### % en ejecucion 

```{r}
articles <- 25
gauge(articles, min = 0, max = 100, symbol = "%",
      gaugeSectors(
        warning = c(0,articles)
      ))
```

### % ejecutado 

```{r}
articles <- 66
gauge(articles, min = 0, max = 100, symbol = "%",
      gaugeSectors(
        success = c(0,articles)
      ))
```

Row
-----------------------------------------------------------------------

### Presupuestado vs Ejecutado

```{r}

```

Row
-----------------------------------------------------------------------

### Chart B

```{r}

```

### Chart C

```{r}

```

# Graficos {data-navmenu="Analisis" data-icon="fa-signal"}

## Sidebar {.sidebar}

# Tablas {data-navmenu="Analisis" data-icon="fa-list"}
```{r}
datatable(iris)
```



# Informe